diff --git a/Language/Haskellish.hs b/Language/Haskellish.hs
--- a/Language/Haskellish.hs
+++ b/Language/Haskellish.hs
@@ -197,6 +197,15 @@
         f st (Var _ (UnQual _ (Symbol _ x))) = Right (x,st)
         f _ e = Left $ NonFatal (expToSpan e) "expected identifier"
 
+trueOrFalse :: Haskellish st Bool
+trueOrFalse = Haskellish (\st e -> f st e)
+  where
+    f st (Paren _ x) = f st x
+    f st (Con _ (UnQual _ (Ident _ "True"))) = Right (True,st)
+    f st (Con _ (UnQual _ (Ident _ "False"))) = Right (False,st)
+    f _ e = Left $ NonFatal (expToSpan e) "expected bool"
+
+
 reserved :: String -> Haskellish st ()
 reserved x = Haskellish (\st e -> do
    (e',_) <- _run identifier st e
diff --git a/haskellish.cabal b/haskellish.cabal
--- a/haskellish.cabal
+++ b/haskellish.cabal
@@ -1,5 +1,5 @@
 name:                haskellish
-version:             0.3.1
+version:             0.3.2
 synopsis:            For parsing Haskell-ish languages
 homepage:            http://github.com/dktr0/Haskellish
 license:             BSD3