Ticket #158: Main.hs

File Main.hs, 164 bytes (added by arcatan, 3 years ago)
Line 
1{-# LANGUAGE QuasiQuotes #-}
2
3import Quasi
4
5f [$qq|test|] = True
6f _ = False
7
8main = do
9    print [$qq|test|]
10    print $ f [$qq|test|]
11    print $ f [$qq|test 2|]