laser · February 6, 2016 00:12
diff --git a/style.hs b/style.hs
 module Style (
  foo,
  Bar(..)
 ) where

 data Bar = Bar { x :: String
               , y :: Int } deriving (Show, Eq)
               
 foo :: Bool -> Int
 foo b = if b then 1
             else 0
	module Style (
	foo,
	Bar(..)
	) where

	data Bar = Bar { x :: String
	, y :: Int } deriving (Show, Eq)

	foo :: Bool -> Int
	foo b = if b then 1
	else 0