Slaying

1 files changed, 4 insertions, 1 deletions

diff --git a/app/Data/Iban.hs b/app/Data/Iban.hs
index 412577a..d9566b9 100644
--- a/app/Data/Iban.hs
+++ b/app/Data/Iban.hs
@@ -1,4 +1,4 @@
-module Data.Iban (Iban, mkIban) where
+module Data.Iban (Iban, mkIban, toText) where
 
 import Control.Applicative ((<|>))
 import Data.Attoparsec.Text as AP
@@ -43,3 +43,6 @@ validateIban = AP.parseOnly $ do
       charsToInteger chars * 1000000 + charsToInteger countryCode * 100 + charsToInteger checkDigits
     valid countryCode checkDigits chars =
       ibanToInteger countryCode checkDigits chars `mod` 97 == 1
+
+toText :: Iban -> T.Text
+toText (Iban t) = t