https://github.com/Helium4Haskell/lvm
Raw File
Tip revision: a516e95b66e989f1364567e9b4f3292266659d08 authored by Hage, J. (J) on 24 August 2019, 08:00:47 UTC
Getting rid of pesky compile time warnings
Tip revision: a516e95
FreeVar1.core
module FreeVar1 where

data Unit = Unit

bind x f  = f Unit
return x  = x
putChar x = x

main = let x = putChar 97
       in let f = \_ -> let g = \_ -> case Unit of Unit -> return Unit
                        in bind x g
          in bind x f
back to top