-- Hoogle documentation, generated by Haddock
-- See Hoogle, http://www.haskell.org/hoogle/


-- | QuasiQuoter for Perl6-style multi-line interpolated strings with "q", "qq" and "qc" support.
--   
--   QuasiQuoter for Perl6-style multi-line interpolated strings with
--   <a>q</a>, <a>qq</a> and <a>qc</a> support.
@package interpolatedstring-perl6
@version 0.4


-- | QuasiQuoter for interpolated strings using Perl 6 syntax.
--   
--   The <a>q</a> form does one thing and does it well: It contains a
--   multi-line string with no interpolation at all:
--   
--   <pre>
--    {-# LANGUAGE QuasiQuotes, ExtendedDefaultRules #-}
--    import Text.InterpolatedString.Perl6 (q)
--    foo :: String
--    foo = [$q|
--   
--   Well here is a
--        multi-line string!
--   
--   |]
--   </pre>
--   
--   The <a>qc</a> form interpolates curly braces: Expressions inside {}
--   will be directly interpolated if it's a String, or have <a>show</a>
--   called if it is not.
--   
--   Escaping of '{' is done with backslash.
--   
--   For interpolating numeric expressions without an explicit type
--   signature, use the ExtendedDefaultRules lanuage pragma, as shown
--   below:
--   
--   <pre>
--   {-# LANGUAGE QuasiQuotes, ExtendedDefaultRules #-}
--   import Text.InterpolatedString.Perl6 (qc)
--   bar :: String
--   bar = [$qc| Well {"hello" ++ " there"} {6 * 7} |]
--   </pre>
--   
--   bar will have the value " Well hello there 42 ".
--   
--   If you want control over how <a>show</a> works on your types, define a
--   custom <a>ShowQ</a> instance:
--   
--   <pre>
--   import Text.InterpolatedString.Perl6 (qc, ShowQ(..))
--   instance ShowQ ByteString where
--       showQ = unpack
--   </pre>
--   
--   That way you interpolate bytestrings will not result in double quotes
--   or character escapes.
--   
--   The <a>qq</a> form adds to the <a>qc</a> form with a simple shorthand:
--   '$foo' means '{foo}', namely interpolating a single variable into the
--   string.
--   
--   <pre>
--   {-# LANGUAGE QuasiQuotes, ExtendedDefaultRules #-}
--   import Text.InterpolatedString.Perl6 (qq)
--   baz :: String
--   baz = [$qc| Hello, $who |]
--       where
--       who = <a>World</a>
--   </pre>
--   
--   The ability to define custom <a>ShowQ</a> instances is particularly
--   powerful with cascading instances using <a>qq</a>.
--   
--   Below is a sample snippet from a script that converts Shape objects
--   into AppleScript suitable for drawing in OmniGraffle:
--   
--   <pre>
--   {-# LANGUAGE QuasiQuotes, ExtendedDefaultRules, NamedFieldPuns, RecordWildCards #-}
--   import qualified System.IO.UTF8 as UTF8
--   import Text.InterpolatedString.Perl6
--   </pre>
--   
--   <pre>
--   
--   data Shape = Shape
--       { originX         :: Int
--       , originY         :: Int
--       , width           :: Int
--       , height          :: Int
--       , stroke          :: Stroke
--       , text            :: Text
--       }
--   instance ShowQ Shape where
--       showQ Shape{..} = [$qq|
--           make new shape at end of graphics with properties
--               \{ $text, $stroke, _size, $_origin }
--       |]
--           where         
--           _size   = [$qq|size: {$width, $height}|]
--           _origin = [$qq|origin: {$originX, $originY}|]
--   </pre>
--   
--   <pre>
--   
--   data Stroke = StrokeWhite | StrokeNone
--   instance ShowQ Stroke where
--       showQ StrokeNone = "draws stroke:false"
--       showQ StrokeWhite = "stroke color: {1, 1, 1}"
--   </pre>
--   
--   <pre>
--   
--   data Text   = Text
--       { txt   :: String
--       , color :: Color
--       }
--   instance ShowQ Text where
--       showQ Text{..} = [$qq|text: \{ text: "$txt", $color, alignment: center } |]
--   </pre>
--   
--   <pre>
--   
--   data Color = Color { red :: Float, green :: Float, blue :: Float }
--   instance ShowQ Color where
--       showQ Color{..} = [$qq|color: {$red, $green, $blue}|]
--   </pre>
--   
--   <pre>
--   
--   main :: IO ()
--   main = UTF8.putStrLn [$qq|
--       tell application "OmniGraffle Professional 5"
--           tell canvas of front window
--               { makeShape ... }
--           end tell
--       end tell
--   |]
--   </pre>
module Text.InterpolatedString.Perl6

-- | QuasiQuoter for interpolating '$var' and '{expr}' into a string
--   literal. The pattern portion is undefined.
qq :: QuasiQuoter

-- | QuasiQuoter for interpolating '{expr}' into a string literal. The
--   pattern portion is undefined.
qc :: QuasiQuoter

-- | QuasiQuoter for a non-interpolating string literal. The pattern
--   portion is undefined.
q :: QuasiQuoter
class ShowQ a
showQ :: (ShowQ a) => a -> String
instance [overlap ok] Show StringPart
instance [overlap ok] (Show a) => ShowQ a
instance [overlap ok] ShowQ String
instance [overlap ok] ShowQ Char