Skip to content

Instantly share code, notes, and snippets.

@thalesmg

thalesmg/teste.hs

Created April 14, 2021 22:21
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save thalesmg/24dfdae87f0e5ddbda34d5cec8cc63a6 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save thalesmg/24dfdae87f0e5ddbda34d5cec8cc63a6 to your computer and use it in GitHub Desktop.
Download ZIP
delete-me
Raw
teste.hs
{-# LANGUAGE OverloadedStrings #-}
module Main (blah) where
import qualified Data.Map as M
-- comentário
-- | haddock
data Bah m = MkBah { bah :: m Text
, boh :: Int -> IO ()
}
newtype Blergh = MkBlergh { getBlerg :: () }
cousa :: Cont r Int -> Cont r String
cousa c | c > 10 = fmap show c
| otherwise = undefined
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment