From 8a681ad195e6aa8d705e6671e327032deff5b036 Mon Sep 17 00:00:00 2001
From: Romain Edelmann <romain.edelmann@gmail.com>
Date: Fri, 9 Aug 2013 20:15:48 +0200
Subject: [PATCH] Added the `paranoiac` schema.

---
 src/Scat.hs         | 3 +++
 src/Scat/Schemas.hs | 5 +++++
 2 files changed, 8 insertions(+)

diff --git a/src/Scat.hs b/src/Scat.hs
index 69b9c08..78a4634 100644
--- a/src/Scat.hs
+++ b/src/Scat.hs
@@ -105,6 +105,9 @@ getSchema = do
         -- Alphanumeric.
         "alpha" -> return alphanumeric
 
+        -- Paranoiac
+        "parano" -> return paranoiac
+
         -- PIN.
         'p' : 'i' : 'n' : xs | [(n, "")] <- reads xs -> return $ pin n
 
diff --git a/src/Scat/Schemas.hs b/src/Scat/Schemas.hs
index ebe622f..e495f84 100644
--- a/src/Scat/Schemas.hs
+++ b/src/Scat/Schemas.hs
@@ -10,6 +10,7 @@ module Scat.Schemas
     -- * Passwords
     , safe
     , alphanumeric
+    , paranoiac
 
     -- * PIN
     , pin
@@ -33,6 +34,10 @@ import Paths_scat
 -- | Password builder.
 type Schema = Builder String
 
+-- | Paranoiac mode, entropy of 512 bits.
+paranoiac :: Schema
+paranoiac = replicateM 78 ascii
+
 {- | Generates a password of length 18,
      containing upper case letters,
      lower case letters,