From 98af8b417b751bc38f7b17334ca49b177d853a45 Mon Sep 17 00:00:00 2001
From: Kei Hibino <ex8k.hibino@gmail.com>
Date: Tue, 21 May 2013 15:54:40 +0900
Subject: [PATCH] Remove unsafeFromJust and add flattenMaybe.

---
 relational-join/src/Database/Relational/Query/Expr.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/relational-join/src/Database/Relational/Query/Expr.hs b/relational-join/src/Database/Relational/Query/Expr.hs
index 777e4455..43b77589 100644
--- a/relational-join/src/Database/Relational/Query/Expr.hs
+++ b/relational-join/src/Database/Relational/Query/Expr.hs
@@ -7,7 +7,7 @@ module Database.Relational.Query.Expr (
 
   valueExpr,
 
-  just, unsafeFromJust
+  just, flattenMaybe
   ) where
 
 import Prelude hiding (and, or)
@@ -73,5 +73,5 @@ valueExpr =  Expr . showConstantSQL
 just :: Expr ft -> Expr (Maybe ft)
 just =  Expr . showExpr
 
-unsafeFromJust :: Expr (Maybe ft) -> Expr ft
-unsafeFromJust =  Expr . showExpr
+flattenMaybe :: Expr (Maybe (Maybe ft)) -> Expr (Maybe ft)
+flattenMaybe =  Expr . showExpr