Completely overhaul frontend styling for clearer usage. Add support for entering either the full link or just link key for viewing secrets without opening links anew.

src/Feature/Sharing/HTTP.hs

@@ -9,13 +9,15 @@ import Feature.Sharing.SQLite    (findByLink, insertNewSecret)
 import Feature.Sharing.Templates (renderPw)
 import Feature.Sharing.Types
 
+import Control.Monad.Reader (ask, lift, liftIO)
+import Data.Maybe           (listToMaybe)
+import Data.List.Split      (splitOn)
+import Web.Scotty.Trans 
+import Prelude 
+
 import qualified Data.Text      as T
 import qualified Data.Text.Lazy as LT
 
-import Control.Monad.Reader (ask, lift, liftIO)
-import Data.Maybe (listToMaybe)
-import Web.Scotty.Trans 
-import Prelude 
 
 routes :: PurrApp ()
 routes = do 
@@ -28,7 +30,7 @@ routes = do
   post "/pw" $ do
     reqId <- param "userLink"
     res   <- findByLink reqId
-    html   $ renderPw reqId res
+    html   $ renderPw (last $ splitOn "/" reqId) res
 
   post "/new" $ do 
     reqSecret <- param "newSec"

src/Feature/Sharing/SQLite.hs

@@ -9,6 +9,7 @@ import Control.Monad.Reader           (ask, lift, liftIO)
 import Crypto.Simple.CBC              (encrypt, decrypt)
 import Data.Maybe                     (listToMaybe)
 import Data.Time.Clock.POSIX          (getPOSIXTime)
+import Data.List.Split                (splitOn)
 import Database.SQLite.Simple
 
 import qualified Data.ByteString.Base64 as B64
@@ -22,7 +23,7 @@ findByLink link = do
   db    <- dbPath
   key   <- encKey
   conn  <- liftIO $ open db
-  res   <- liftIO $ query conn "SELECT * from pws WHERE link = ?" (Only link)
+  res   <- liftIO $ query conn "SELECT * from pws WHERE link = ?" (Only (last $ splitOn "/" link))
   liftIO $ close conn
   readEncryptedSecret key res