doSolve :: Index   -- ^ the current index
        -> Solns   -- ^ the list of possible solutions
        -> Lotus   -- ^ the lotus puzzle
        -> Lotus   -- ^ the solved (or empty) lotus puzzle
doSolve 48 [x] lts = returnBoard x 48 lts
doSolve :: Index   -- ^ the current index
        -> Solns   -- ^ the list of possible solutions
        -> Lotus   -- ^ the lotus puzzle
        -> Lotus
doSolve 48 [x] lts = returnBoard x 48 lts
doSolve 48 [x] lts = returnBoard x 48 lts