I am completely new to Haskell. I need to insert a given string at a given index of a string that may already be non-empty.

This is what I have so far. However, after seemingly running with no errors, when I ask what the value of `t` is ghci just hangs indefinitely.

Haskell:

`create = ("",0,0,"","")`

```
addText (m,l,p,_,k) i = 
    let a = take p m
        m = drop p m
        full = a++i++m
    in (full, length full, p + length i, "", k)

```

Where `m` is the text to add to, `l` is the length of `m` and `p` is the index to start adding the new string at

Output:

```
*Main> t = create

```

`*Main> t`

`("",0,0,"","")`

`*Main> t = addText t "test"`

`*Main> t`

`(hangs)`